<%

Function cores_lista(cores)

	DIM total
	
	total = 0

	str = "Select id, nome FROM cores order by nome"
   	Set rs = conexao_geral.Execute(str)	
	
	Do while not rs.eof
	
		cores(total,0) = rs("id")
		cores(total,1) = rs("nome")
		total=total+1
	
	rs.MoveNext
	loop
	
	cores_lista = total

End Function


%>